home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_05_(08-1984).d64 / faulty towers.p (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  135 lines
  1. 6 DN$=""
  2. 7 GOSUB500
  3. 8 POKE59468,14:DIMM$(25),R$(25)
  4. 10 FORI=1TO25:READR$(I):NEXT
  5. 20 DATAHALL,LIVING ROOM,KITCHEN,DINING ROOM,BILLIARD ROOM,DOWNSTAIRS LAV
  6. 30 DATABATHROOM,MASTER BEDROOM,NURSERY
  7. 40 DATASERVANT'S QUARTERS
  8. 41 DATACONSERVATORY,TERRACE,STABLES,ATTICS,LAUNDRY,LIBRARY,MUSIC ROOM,STUDY
  9. 42 DATABOILER ROOM,PANTRY,SCULLERY
  10. 43 DATAFIRST BEDROOM,SECOND BEDROOM,THIRD BEDROOM,FOURTH BEDROOM
  11. 45 PRINT"[193] BODY LIES IN ONE OF THE ROOMS"
  12. 46 PRINT"[194]UT THE BUTLER WON'T TELL YOU HOW TO":PRINT"FIND YOUR WAY AROUND"
  13. 47 PRINT"SO YOU'LL HAVE TO FIND OUT FOR YOURSELF"
  14. 48 PRINT"([211]HOUT HELP IF YOU GET THOROUGHLY LOST)"
  15. 50 FORI=1TO25:M$(I)="":NEXT
  16. 60 FORI=1TO25
  17. 67 X%=INT(RND(1)*25)+1
  18. 69 IFX%=ITHEN67
  19. 70 M$(I)=M$(I)+CHR$(X%+64):M$(X%)=M$(X%)+CHR$(I+64)
  20. 80 NEXT
  21. 82 C1%=-1
  22. 90 GOSUB10000:PRINT"[215]HICH ROOM DO YOU WANT TO START[160]"
  23. 100 C%=0:C1%=C1%+1:PRINT"SEARCHING FROM?";:GOSUB1900
  24. 105 S%=INT(RND(1)*25)+1
  25. 110 FORI=1TO25
  26. 120 IFLEFT$(R$(I),3)=LEFT$(A$,3)THEN180
  27. 130 NEXT:PRINT"[206]O SUCH ROOM [201]'M AFRAID"
  28. 140 GOTO90
  29. 180 PRINTRIGHT$(R$(I),LEN(R$(I))-3)
  30. 190 IFC%>100THENGOTO900
  31. 191 C%=C%+1:L=0:IFI=S%THEN350
  32. 195 IFC%>25ANDRND(1)<.1THENPRINT"[217]OU MUST BE LOST-YOU SHOULD MAKE A PLAN"
  33. 200 FORJ=1TOLEN(M$(I))
  34. 210 X%=ASC(MID$(M$(I),J,1))
  35. 212 IFX%<>I2+64THEN230
  36. 215 NEXT:IFL=1THEN300
  37. 220 PRINT"[212]HAT'S A DEAD END":GOTO400
  38. 230 PRINT"[204]INKS WITH ";R$(X%-64)
  39. 240 L=1
  40. 250 GOTO215
  41. 300 GOSUB10000:PRINT"[215]HERE DO YOU THINK YOU SHOULD GO NOW?[160]":GOSUB1900
  42. 305 IFLEFT$(A$,3)="HEL"THEN945
  43. 310 FORJ=1TOLEN(M$(I))
  44. 320 Y%=ASC(MID$(M$(I),J,1))
  45. 325 IF LEFT$(R$(Y%-64),3)=LEFT$(A$,3)THEN335
  46. 330 NEXT:PRINT"[212]HAT WASN'T ONE OF THE ROOMS":GOTO300
  47. 335 PRINTRIGHT$(R$(Y%-64),LEN(R$(Y%-64))-3)
  48. 340 IFY%-64<>S%THENI2=I:I=Y%-64:GOTO190
  49. 350 PRINT"[213][199][200]!! [217]OU'VE FOUND THE BODY"
  50. 351 T1=TI:IFC1%>0THENPRINT"[193]FTER JUMPING OUT OF[160]";C1%;" WINDOWS "
  51. 355 PRINT"[193]FTER VISITING[160]";C%;"ROOMS"
  52. 356 IFC%>25THENPRINT"(WHICH IS PRETTY PATHETIC)"
  53. 357 IFC%<5THENPRINT"(PROBABLY YOUR LUCKY DAY)":T1=TI
  54. 358 IFTI<T1+480THEN358
  55. 359 GOSUB1200
  56. 360 PRINT"[194]UT WAIT- THE BUTLER IS AGITATEDLY[160]":PRINT"WAVING FROM THE LANDING"
  57. 370 PRINT"[217]OU'LL HAVE TO LOOK FOR YET ANOTHER BODY":GOTO82
  58. 400 PRINT"[217]OU MUST RETRACE YOUR STEPS BACK TO"
  59. 420 I=ASC(M$(I))-64
  60. 440 C%=C%+1:PRINTR$(I)
  61. 450 PRINT"[215]HERE YOU HAVE A CHOICE OF ROUTES"
  62. 460 GOTO190
  63. 500 POKE59468,12:PRINT"[147]" :FORJ=0TO15+INT(RND(1)*11)
  64. 510 N=INT((RND(1)*30))
  65. 520 L=INT(RND(1)*6+1)*2
  66. 530 PRINT"";LEFT$(DN$,L)
  67. 540 GOSUB1000
  68. 550 FORI=L+9TO20
  69. 555 IFI>15ANDI<19THENPRINTTAB(N+1)"[166][219][219][166][165]":GOTO570
  70. 560 PRINTTAB(N+1)"[166][166][166][166][165]"
  71. 565 IFTM=1THEN610
  72. 570 NEXT:NEXT
  73. 610 PRINT""DN$;LEFT$(DN$,6)
  74. 620 PRINTTAB(N+1)"[169] [223]"
  75. 630 FORI1=1TO4:PRINTTAB(N+1)"[165][215][167]":NEXT
  76. 635 IFTM=1THENRETURN
  77. 640 PRINT"WELCOME TO FAWLTY TOWERS"
  78. 650 PRINT"HIT ANY KEY TO START THE GAME"
  79. 670 GETC$:IFC$=""THEN670
  80. 680 RETURN
  81. 900 GOSUB10000:PRINT"[201]'M AFRAID THAT YOU ARE VERY PRABABLY"
  82. 910 PRINT"DOOMED TO FAILURE[160]- THE PART OF"
  83. 920 PRINT"THE HOUSE WITH THE BODY IS[160]":PRINT"INACCESSIBLE FROM THE BIT
  84. 930 [153]"YOU'RE IN AND SO YOU WILL GO ROUND ANDCLOSE"
  85. 940 [153]"ROUND FOREVER-
  86. 945 PRINT"[215]HY NOT TRY JUMPING OUT OF THE WINDOW"
  87. 950 PRINT"AND CHOOSING SOMEWHERE ELSE TO START
  88. 960 [137]100
  89. 1000 [153][163]N[170]2)"THENCOS"
  90. 1005 [153][163]N[170]2)"STEP(null)"
  91. 1010 [153][163]N[170]1)"STEP  (null)"
  92. 1020 [153][163]N)"LOGTANTANTANTANWAITCOS"
  93. 1030 [153][163]N[170]1)"SINSINSINSINFN"
  94. 1040 [153][163]N[170]1)"SINSTEP(null)SINFN"
  95. 1050 [153][163]N[170]1)"SINFNTHENSINFN"
  96. 1060 [153][163]N[170]1)"SIN(null)SQRSINFN"
  97. 1070 [153][163]N[170]1)"SINRNDRNDWAITSINFN"
  98. 1080 [142]
  99. 1200 [153]"LOAD"DN$:[151]59468,12
  100. 1205 N[178]0:L[178]6:TM[178]1:[141]530
  101. 1210 TM[178]0:[153]""DN$;[200](DN$,7)
  102. 1220 [153][163]6)"TOTOTOTOTO.
  103. 1230 PRINTTAB(6)"[207][162][162][162][167][205][188][165]
  104. 1240 [153][163]6)"TANTAB(TAB(TAB((null)TANRIGHT$WAITFN"
  105. 1250 [153][163]6)"(null)    (null)
  106. 1260 FORI=1TO40:PRINT"[166]";:NEXT
  107. 1265 FORI=1TO26
  108. 1270 PRINT""DN$;LEFT$(DN$,7)
  109. 1290 PRINTTAB(6); CHR$(148)
  110. 1300 PRINTTAB(6);CHR$(148)
  111. 1310 PRINTTAB(6);CHR$(148)
  112. 1320 PRINTTAB(6);CHR$(148)
  113. 1322 IFI=25THENPRINT"THIS IS INDEED A SOLEMN MOMENT FOR"
  114. 1324 IFI=25THENPRINT"ALL OF US HERE AT THE TOWERS"
  115. 1325 T1=TI
  116. 1330 IFTI<T1+20THEN1330
  117. 1340 NEXT
  118. 1350 T1=TI
  119. 1360 IFTI<T1+300THEN1360
  120. 1370 PRINT"[147]":POKE59468,14:RETURN
  121. 1800 N=0:L=6:TM=1:GOSUB530
  122. 1810 TM=0
  123. 1900 A$=""
  124. 1910 T1=TI
  125. 1920 PRINT"[191][157]";
  126. 1930 IFTI<T1+20THEN1930
  127. 1940 PRINT"[191][146][157]";
  128. 1950 GETD$:IFD$<>""THEN1960
  129. 1955 IFTI<T1+40THEN1950
  130. 1956 GOTO1910
  131. 1960 A$=A$+D$:PRINTD$;:IFLEN(A$)<3THEN1950
  132. 1970 RETURN
  133. 10000 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  134. 10010 RETURN
  135.